subroutine  grides
use var
implicit none

    integer j,i
    real(8) pi
    real(8) x0,x1
    
    select case(c_init_case) 
    case(1)
        t_end=0.14d0
        
        x0=0.d0
        x1=1.d0
        
        pi=2.d0*dasin(1.d0)
        dx=(x1-x0)/dble(gridsx)
    
        do i=0,gridsx
            x(i)=x0+dble(i)*dx
        end do
    
    case(2)
        t_end=0.038d0
        CFL=0.5d0
        
        x0=0.d0
        x1=1.d0
        
        pi=2.d0*dasin(1.d0)
        dx=(x1-x0)/dble(gridsx)
    
        do i=0,gridsx
            x(i)=x0+dble(i)*dx
        end do  
    
    endselect


end subroutine
    